home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / musictex / older-versions / musicexa.504 / ORSAYREG.STY < prev    next >
Text File  |  1994-03-02  |  3KB  |  80 lines
  1. \newif\ifGOprincipal
  2. \newif\ifGObourdon
  3. \newif\ifGOmixture
  4. \newif\ifPEsoubasse
  5. \newif\ifPEposaune
  6. \newif\iftirasse
  7. \newif\ifREdoublette
  8. \newif\ifREflute
  9. \newif\ifREtierce
  10. \newif\ifREsifflet
  11. \newif\iftremblant
  12. \newif\ifREbourdon
  13. \newif\ifREnasard
  14. \newif\ifRElarigot
  15. \newif\ifREcymbale
  16. \newif\ifREvoixhum
  17. \newif\ifGOoctave
  18. \newif\ifGOquarte
  19. \newif\ifGOtrompette
  20. \newif\ifPEoctave
  21. \newif\ifPEprestant
  22. \newif\ifPEmixture
  23.  
  24. \def\ORreset{\GOprincipalfalse
  25. \GObourdonfalse
  26. \GOmixturefalse
  27. \PEsoubassefalse
  28. \PEposaunefalse
  29. \tirassefalse
  30. \REdoublettefalse
  31. \REflutefalse
  32. \REtiercefalse
  33. \REsiffletfalse
  34. \tremblantfalse
  35. \REbourdonfalse
  36. \REnasardfalse
  37. \RElarigotfalse
  38. \REcymbalefalse
  39. \REvoixhumfalse
  40. \GOoctavefalse
  41. \GOquartefalse
  42. \GOtrompettefalse
  43. \PEoctavefalse
  44. \PEprestantfalse
  45. \PEmixturefalse}
  46.  
  47.  
  48.  
  49. \newdimen\regskip \regskip=6pt
  50.  
  51. \def\hpoint#1#2#3{\unskip\rlap{\kern#1\raise#2\hbox{#3}}}
  52.  
  53. \def\Choice{\raise -2pt\hbox to \regskip{\hss$\bullet$\hss}}
  54. \def\noChoice{\hbox to \regskip{\hss\bf .\hss}}
  55.  
  56. \def\ORregistre{\vbox to 0pt{\noindent\leavevmode\raise -6\regskip\rlap{%
  57.  \hpoint {1\regskip}{6\regskip}{\ifGOprincipal\Choice\else\noChoice\fi}
  58.  \hpoint {1\regskip}{5\regskip}{\ifGObourdon\Choice\else\noChoice\fi}
  59.  \hpoint {1\regskip}{4\regskip}{\ifGOmixture\Choice\else\noChoice\fi}
  60.  \hpoint {1\regskip}{3\regskip}{\ifPEsoubasse\Choice\else\noChoice\fi}
  61.  \hpoint {1\regskip}{2\regskip}{\ifPEposaune\Choice\else\noChoice\fi}
  62.  \hpoint {1\regskip}{1\regskip}{\iftirasse\Choice\else\noChoice\fi}
  63.  \hpoint {2\regskip}{5.5\regskip}{\ifREdoublette\Choice\else\noChoice\fi}
  64.  \hpoint {2\regskip}{4.5\regskip}{\ifREflute\Choice\else\noChoice\fi}
  65.  \hpoint {2\regskip}{3.5\regskip}{\ifREtierce\Choice\else\noChoice\fi}
  66.  \hpoint {2\regskip}{2.5\regskip}{\ifREsifflet\Choice\else\noChoice\fi}
  67.  \hpoint {2\regskip}{1.5\regskip}{\iftremblant\Choice\else\noChoice\fi}
  68.  \hpoint {3\regskip}{5.5\regskip}{\ifREbourdon\Choice\else\noChoice\fi}
  69.  \hpoint {3\regskip}{4.5\regskip}{\ifREnasard\Choice\else\noChoice\fi}
  70.  \hpoint {3\regskip}{3.5\regskip}{\ifRElarigot\Choice\else\noChoice\fi}
  71.  \hpoint {3\regskip}{2.5\regskip}{\ifREcymbale\Choice\else\noChoice\fi}
  72.  \hpoint {3\regskip}{1.5\regskip}{\ifREvoixhum\Choice\else\noChoice\fi}
  73.  \hpoint {4\regskip}{6\regskip}{\ifGOoctave\Choice\else\noChoice\fi}
  74.  \hpoint {4\regskip}{5\regskip}{\ifGOquarte\Choice\else\noChoice\fi}
  75.  \hpoint {4\regskip}{4\regskip}{\ifGOtrompette\Choice\else\noChoice\fi}
  76.  \hpoint {4\regskip}{3\regskip}{\ifPEoctave\Choice\else\noChoice\fi}
  77.  \hpoint {4\regskip}{2\regskip}{\ifPEprestant\Choice\else\noChoice\fi}
  78.  \hpoint {4\regskip}{1\regskip}{\ifPEmixture\Choice\else\noChoice\fi}
  79. }\vss}}
  80.